home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb27400.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  74 lines
  1. ;=============274.00 ARBEITSTISCH 800x1200x1000
  2.  
  3. (EAITDBL "0027400")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:27400V1 (/ P1)
  8.    (EAITDBL "0027400")
  9.    (princ (strcat "\n\n" EAITbez1 EAITbez2))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 1)
  13.    (EAITbpt nil nil nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (setvar "OSMODE" 0)
  17.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  18.    (command EAITege (strcat EAITpfn "27400v1") P1 "" "" EAITofkei pause)
  19.  
  20.    (command EAITege (strcat EAITpfn "EAITinfo")  P1 "" "" ""
  21.             EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  22.    )
  23.    (EAITvarz2)
  24.    (princ)
  25. )
  26.  
  27.  
  28.  
  29.  
  30. (defun C:27400D1 (/ P1)
  31.    (EAITDBL "0027400")
  32.    (princ (strcat "\n\n" EAITbez1 EAITbez2))
  33.    (EAITvari)
  34.    (EAITvars)
  35.    (setvar "ORTHOMODE" 1)
  36.    (EAITbpt nil nil nil)
  37.    (setq P1 (getpoint))
  38.    (if (= P1 nil)(setq P1 (EAITrpt)))
  39.    (setvar "OSMODE" 0)
  40.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  41.    (command EAITege (strcat EAITpfn "27400d1") P1 "" "" EAITofkei pause)
  42.  
  43.    (command EAITege (strcat EAITpfn "EAITinfo")  P1 "" "" ""
  44.             EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  45.    )
  46.    (EAITvarz2)
  47.    (princ)
  48. )
  49.  
  50.  
  51.  
  52.  
  53. (defun C:27400S1 (/ P1)
  54.    (EAITDBL "0027400")
  55.    (princ (strcat "\n\n" EAITbez1 EAITbez2))
  56.    (EAITvari)
  57.    (EAITvars)
  58.    (setvar "ORTHOMODE" 1)
  59.    (EAITbpt nil nil nil)
  60.    (setq P1 (getpoint))
  61.    (if (= P1 nil)(setq P1 (EAITrpt)))
  62.    (setvar "OSMODE" 0)
  63.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  64.    (command EAITege (strcat EAITpfn "27400s1") P1 "" "" EAITofkei pause)
  65.  
  66.    (command EAITege (strcat EAITpfn "EAITinfo")  P1 "" "" ""
  67.             EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  68.    )
  69.    (EAITvarz2)
  70.    (princ)
  71. )
  72.  
  73. (princ)
  74.